Const msiOpenDatabaseModeTransact = 1 

Dim msiPath 

msiPath = WScript.Arguments(0) 'MSI file from the command line 

Dim installer 

Set installer = CreateObject("WindowsInstaller.Installer") 

Dim openMode 

openMode = msiOpenDatabaseModeTransact 

Dim database 

Set database = installer.OpenDatabase(msiPath, openMode) 

Dim view1 

Set view1 = database.OpenView("UPDATE RegLocator SET Type = 18 WHERE Name = 'LicenseCache64'")

view1.Execute 

Dim view2

Set view2 = database.OpenView("UPDATE RegLocator SET Name = 'LicenseCache' WHERE Name = 'LicenseCache32'")

view2.Execute 

Dim view3

Set view3 = database.OpenView("UPDATE RegLocator SET Name = 'LicenseCache' WHERE Name = 'LicenseCache64'")

view3.Execute 

database.Commit 

Set view1 = Nothing 
Set view2 = Nothing 
Set view3 = Nothing 

Set database = Nothing